(comint-dynamic-list-filename-completions): Quote common substring.

diff --git a/lisp/comint.el b/lisp/comint.el
index 1a70e8ca107dde8c66e967b4ef96a3f290e51a91..917565dd1575fd7c27788588c9c065c193d68591 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2961,7 +2961,7 @@ See also `comint-dynamic-complete-filename'."
          (message "No completions of %s" filename))
       (comint-dynamic-list-completions
        (mapcar 'comint-quote-filename completions)
-       filenondir))))
+       (comint-quote-filename filenondir)))))
 
 
 ;; This is bound locally in a *Completions* buffer to the list of